Option Explicit
Sub A_Sample011()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Set myRng1 = Range("A1:C30")			'Nxsd
    'ǳƨ즹
    On Error Resume Next
        Set myRng2 = myRng1.SpecialCells _
        (Type:=xlCellTypeFormulas, Value:=xlTextValues)
    On Error GoTo 0
    If myRng2 Is Nothing Then
        MsgBox "ؼxs椣sb"
    Else
        MsgBox myRng2.Address
    End If
    Set myRng1 = Nothing				'
    Set myRng2 = Nothing
End Sub
